x <- glm(formula=breaks~wool+tension,
              data=warpbreaks,
              family=poisson)
